﻿Imports System.Drawing

Public Class SocketTypes
    Enum Socket_Type
        None = 0
        Video = 1
        Trigger = 2
        Image = 3
        CameraControl = 4
        Control = 5
        Universal = 6
        HardwarePort = 7
        Selected = 10
    End Enum
    Public Function GetBodyColor(ByVal Type As Socket_Type) As Color
        Dim TC As Color
        If Type = Socket_Type.None Then TC = Color.Gray
        If Type = Socket_Type.Video Then TC = Color.Yellow
        If Type = Socket_Type.Trigger Then TC = Color.DodgerBlue
        If Type = Socket_Type.Universal Then TC = Color.White
        If Type = Socket_Type.Image Then TC = Color.Green
        If Type = Socket_Type.Control Then TC = Color.Orange
        If Type = Socket_Type.CameraControl Then TC = Color.Maroon
        If Type = Socket_Type.HardwarePort Then TC = Color.DeepPink
        If Type = Socket_Type.Selected Then TC = Color.Red
        Return TC
    End Function
    Public Function GetIdentColor(ByVal Type As Socket_Type) As Color
        Dim TC As Color
        If Type = Socket_Type.None Then TC = Color.Gray
        If Type = Socket_Type.Video Then TC = Color.Yellow
        If Type = Socket_Type.Trigger Then TC = Color.DodgerBlue
        If Type = Socket_Type.Universal Then TC = Color.White
        If Type = Socket_Type.Image Then TC = Color.Green
        If Type = Socket_Type.Control Then TC = Color.Orange
        If Type = Socket_Type.CameraControl Then TC = Color.Maroon
        If Type = Socket_Type.HardwarePort Then TC = Color.DeepPink
        If Type = Socket_Type.Selected Then TC = Color.Red
        Return TC
    End Function

End Class
